home *** CD-ROM | disk | FTP | other *** search
/ PC Users 1998 June / Cd Pc Users 9.iso / prog / inst / traydemo / tray.bas < prev    next >
Encoding:
BASIC Source File  |  1996-05-06  |  1.9 KB  |  59 lines
  1. Attribute VB_Name = "Module1"
  2. Public Const WM_LBUTTONDOWN = &H201
  3. ' // Tray notification definitions
  4. Global IconIndex As Integer
  5. Global FlashOn As Boolean
  6.  
  7. Type NOTIFYICONDATA
  8.         cbSize As Long
  9.         hwnd As Long
  10.         uID As Long
  11.         uFlags As Long
  12.         uCallbackMessage As Long
  13.         hIcon As Long
  14.         szTip As String * 64
  15. End Type
  16.  
  17. Public Const NIM_ADD = &H0
  18. Public Const NIM_MODIFY = &H1
  19. Public Const NIM_DELETE = &H2
  20.  
  21. Public Const NIF_MESSAGE = &H1
  22. Public Const NIF_ICON = &H2
  23. Public Const NIF_TIP = &H4
  24.  
  25. Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
  26.  
  27. 'Get the menu handle
  28. Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
  29. Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
  30. 'make it pop up
  31. Declare Function TrackPopupMenu Lib "user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hwnd As Long, lpRect As Any) As Long
  32. ' Flags for TrackPopupMenu
  33. Public Const TPM_LEFTBUTTON = &H0&
  34. Public Const TPM_RIGHTBUTTON = &H2&
  35. Public Const TPM_LEFTALIGN = &H0&
  36. Public Const TPM_CENTERALIGN = &H4&
  37. Public Const TPM_RIGHTALIGN = &H8&
  38.  
  39. Type RECT
  40.         Left As Long
  41.         Top As Long
  42.         Right As Long
  43.         Bottom As Long
  44. End Type
  45. Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
  46. Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
  47.  
  48. 'Tray messages
  49. Public Const TRAY_MSG_MOUSEMOVE = 7680
  50. Public Const TRAY_MSG_LEFTBTN_DOWN = 7695
  51. Public Const TRAY_MSG_LEFTBTN_UP = 7710
  52. Public Const TRAY_MSG_LEFTBTN_DBLCLICK = 7725
  53. Public Const TRAY_MSG_RIGHTBTN_DOWN = 7740
  54. Public Const TRAY_MSG_RIGHTBTN_UP = 7755
  55. Public Const TRAY_MSG_RIGHTBTN_DBLCLICK = 7770
  56.  
  57.  
  58.  
  59.